 Click here to
return to the Directory |
<%
Set oRs = Server.CreateObject("ADODB.Recordset")
Set myconn = GetConnection("passwords/")
Set oCmd = Server.CreateObject("ADODB.Command")
Set oCmd.ActiveConnection = myconn
oCmd.CommandType = 1
oCmd.CommandText = "SELECT * FROM Directory INNER JOIN Members ON Directory.MemberID = Members.MemberID WHERE Directory.DirectoryID=" & nID
oRs.Open oCmd
if not oRs is NOTHING and not oRs.eof then
oRs.MoveFirst
Response.Write ""
Dim sDEHead
Dim sDESubHead
Dim sEmail
sEmail = oRs("UserEmail")
if (bShowName and not IsNull(oRs("UserName"))) then
sDEHead = sDEHead & oRs("UserName")
end if
if (bShowCompany and not IsNull(oRs("UserCompany"))) then
sDEHead = sDEHEad & oRs("UserCompany")
end if
if (bShowEmail and not IsNull(sEmail)) then
sDEHead = sDEHead & sEmail
end if
if (bShowName2 and not IsNull(oRs("UserName"))) then
sDESubHead = sDESubHead & oRs("UserName") & "
"
end if
if (bShowCompany2 and not IsNull(oRs("UserCompany"))) then
sDESubHead = sDESubHead & oRs("UserCompany") & "
"
end if
if (bShowEmail2 and not IsNull(sEmail)) then
sDESubHead = sDESubHead & sEmail & "
"
end if
Response.Write sDEHeadingFont & sDEHead & sDEHeadingFontEnd & "
"
Response.Write sDESubHeadingFont & sDESubHead & sDESubHeadingFontEnd & "
"
Response.Write " |
" &vbCrLf
Response.Write "" & vbCrLf
Response.Write "| "
Response.Write " | "
Response.Write " | " & vbCrLf
' Show a picture? do a TD
if bShowPics then
Dim sImage
sImage = oRs("Image")
if IsNull(sImage) or Len(sImage) = 0 then
sImage = sThumbImage
end if
Response.Write "![]() | "
end if
' Write the record
Response.Write ""
Response.Write sDETextFont & sSubHead & " " & oRs("SubHeading") & sDETextFontEnd & "
" & vbCrLf
if (Len(sCat1) > 0) then
Response.Write sDECategoryFont & sCat1 & sDECategoryFontEnd & "
"
Response.Write sDETextFont & oRs("Text0") & sDETextFontEnd & "
" & vbCrLf
end if
if (Len(sCat2) > 0) then
Response.Write sDECategoryFont & sCat2 & sDECategoryFontEnd & "
"
Response.Write sDETextFont & oRs("Text1") & sDETextFontEnd & "
" & vbCrLf
end if
if (Len(sCat3) > 0) then
Response.Write sDECategoryFont & sCat3 & sDECategoryFontEnd & "
"
Response.Write sDETextFont & oRs("Text2") & sDETextFontEnd & "
" & vbCrLf
end if
if (Len(sCat4) > 0) then
Response.Write sDECategoryFont & sCat4 & sDECategoryFontEnd & "
"
Response.Write sDETextFont & oRs("Text3") & sDETextFontEnd & "
" & vbCrLf
end if
if (Len(sCat5) > 0) then
Response.Write sDECategoryFont & sCat5 & sDECategoryFontEnd & "
"
Response.Write sDETextFont & oRs("Text4") & sDETextFontEnd & "
" & vbCrLf
end if
Response.Write " |
| "
else
end if
%>
